<?php

global $err_count;
$err_count = 0;

function found($obj, $cond) {
    $res = var_export($obj, true);
    return (strpos($res, $cond));
}

function notfound($obj, $cond) {
    return !found($obj, $cond);
}

function ar_assert($bool) {
    global $err_count;
    if (!$bool)
        $err_count ++;
    return $bool;
}

define('WEB', true);

function ar_echo($txt) {
    if (WEB)
        $txt = str_replace("\n", "<br />\n", $txt);
    echo $txt;
}

include_once('../adodb.inc.php');
include_once('../adodb-active-recordx.inc.php');


$db = NewADOConnection('mysql://root@localhost/test');
$db->debug = 0;
ADOdb_Active_Record::SetDatabaseAdapter($db);

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("Preparing database using SQL queries (creating 'people', 'children')\n");

$db->Execute("DROP TABLE `people`");
$db->Execute("DROP TABLE `children`");
$db->Execute("DROP TABLE `artists`");
$db->Execute("DROP TABLE `songs`");

$db->Execute("CREATE TABLE `people` (
	                `id` int(10) unsigned NOT NULL auto_increment,
	                `name_first` varchar(100) NOT NULL default '',
	                `name_last` varchar(100) NOT NULL default '',
	                `favorite_color` varchar(100) NOT NULL default '',
	                PRIMARY KEY  (`id`)
	            ) ENGINE=MyISAM;
	           ");
$db->Execute("CREATE TABLE `children` (
					`person_id` int(10) unsigned NOT NULL,
	                `name_first` varchar(100) NOT NULL default '',
	                `name_last` varchar(100) NOT NULL default '',
	                `favorite_pet` varchar(100) NOT NULL default '',
	                `id` int(10) unsigned NOT NULL auto_increment,
	                PRIMARY KEY  (`id`)
	            ) ENGINE=MyISAM;
	           ");

$db->Execute("CREATE TABLE `artists` (
	                `name` varchar(100) NOT NULL default '',
	                `artistuniqueid` int(10) unsigned NOT NULL auto_increment,
	                PRIMARY KEY  (`artistuniqueid`)
	            ) ENGINE=MyISAM;
	           ");

$db->Execute("CREATE TABLE `songs` (
	                `name` varchar(100) NOT NULL default '',
	                `artistid` int(10) NOT NULL,
	                `recordid` int(10) unsigned NOT NULL auto_increment,
	                PRIMARY KEY  (`recordid`)
	            ) ENGINE=MyISAM;
	           ");

$db->Execute("insert into children (person_id,name_first,name_last,favorite_pet) values (1,'Jill','Lim','tortoise')");
$db->Execute("insert into children (person_id,name_first,name_last) values (1,'Joan','Lim')");
$db->Execute("insert into children (person_id,name_first,name_last) values (1,'JAMIE','Lim')");

$db->Execute("insert into artists (artistuniqueid, name) values(1,'Elvis Costello')");
$db->Execute("insert into songs (recordid, name, artistid) values(1,'No Hiding Place', 1)");
$db->Execute("insert into songs (recordid, name, artistid) values(2,'American Gangster Time', 1)");

class Person extends ADOdb_Active_Record {

    function __construct() {
        parent::__construct();
        $this->hasMany('children');
    }

}

class Child extends ADOdb_Active_Record {

    function __construct() {
        parent::__construct();
        $this->belongsTo('person');
    }

}

class Kid extends ADOdb_Active_Record {

    function __construct() {
        parent::__construct('children');
        $this->belongsTo('person');
    }

}

class Rugrat extends ADOdb_Active_Record {

    function __construct() {
        parent::__construct('children', false, false, array('new' => true));
    }

}

class Artist extends ADOdb_Active_Record {

    function __construct() {
        parent::__construct('artists', array('artistuniqueid'));
        $this->hasMany('songs', 'artistid');
    }

}

class Song extends ADOdb_Active_Record {

    function __construct() {
        parent::__construct('songs', array('recordid'));
        $this->belongsTo('artist', 'artistid');
    }

}

ar_echo("Inserting person in 'people' table ('John Lim, he likes lavender')\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$person = new Person();
$person->name_first = 'John';
$person->name_last = 'Lim';
$person->favorite_color = 'lavender';
$person->save();

$person = new Person();
$person->name_first = 'Lady';
$person->name_last = 'Cat';
$person->favorite_color = 'green';
$person->save();

$child = new Child();
$child->name_first = 'Fluffy';
$child->name_last = 'Cat';
$child->favorite_pet = 'Cat Lady';
$child->person_id = $person->id;
$child->save();

$child = new Child();
$child->name_first = 'Sun';
$child->name_last = 'Cat';
$child->favorite_pet = 'Cat Lady';
$child->person_id = $person->id;
$child->save();

$err_count = 0;

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("person->Find('id=1') [Lazy Method]\n");
ar_echo("person is loaded but its children will be loaded on-demand later on\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$person = new Person();
$people = $person->Find('id=1');
ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
ar_echo("\n-- Lazily Loading Children:\n\n");
foreach ($people as $aperson) {
    foreach ($aperson->children as $achild) {
        if ($achild->name_first)
            ;
    }
}
ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("person->Find('id=1' ... ADODB_WORK_AR) [Worker Method]\n");
ar_echo("person is loaded, and so are its children\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$person = new Person();
$people = $person->Find('id=1', false, false, array('loading' => ADODB_WORK_AR));
ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("person->Find('id=1' ... ADODB_JOIN_AR) [Join Method]\n");
ar_echo("person and its children are loaded using a single query\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$person = new Person();
$people = $person->Find('people.id=1', false, false, array('loading' => ADODB_JOIN_AR));
ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("person->Load('people.id=1') [Join Method]\n");
ar_echo("Load() always uses the join method since it returns only one row\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$person = new Person();
// Under the hood, Load(), since it returns only one row, always perform a join
// Therefore we need to clarify which id we are talking about.
$person->Load('people.id=1');
ar_echo((ar_assert(found($person, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($person, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
ar_echo((ar_assert(found($person, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($person, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("child->Load('children.id=1') [Join Method]\n");
ar_echo("We are now loading from the 'children' table, not from 'people'\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$child = new Child();
$child->Load('children.id=1');
ar_echo((ar_assert(found($child, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($child, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("child->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$child = new Child();
$children = $child->Find('id=1', false, false, array('loading' => ADODB_WORK_AR));
ar_echo((ar_assert(found($children, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($children, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
ar_echo((ar_assert(notfound($children, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($children, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("kid->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
ar_echo("Where we see that kid shares relationships with child because they are stored\n");
ar_echo("in the common table's metadata structure.\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$kid = new Kid('children');
$kids = $kid->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
ar_echo((ar_assert(found($kids, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($kids, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
ar_echo((ar_assert(notfound($kids, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($kids, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("kid->Find('children.id=1' ... ADODB_LAZY_AR) [Lazy Method]\n");
ar_echo("Of course, lazy loading also retrieve medata information...\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$kid = new Kid('children');
$kids = $kid->Find('children.id=1', false, false, array('loading' => ADODB_LAZY_AR));
ar_echo((ar_assert(found($kids, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($kids, "'favorite_color' => 'lavender'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
ar_echo("\n-- Lazily Loading People:\n\n");
foreach ($kids as $akid) {
    if ($akid->person)
        ;
}
ar_echo((ar_assert(found($kids, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
ar_echo((ar_assert(notfound($kids, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
ar_echo((ar_assert(notfound($kids, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Found relation when I shouldn't\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("rugrat->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
ar_echo("In rugrat's constructor it is specified that\nit must forget any existing relation\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$rugrat = new Rugrat('children');
$rugrats = $rugrat->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
ar_echo((ar_assert(found($rugrats, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($rugrats, "'favorite_color' => 'lavender'"))) ? "[OK] No relation found\n" : "[!!] Found relation when I shouldn't\n");
ar_echo((ar_assert(notfound($rugrats, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
ar_echo((ar_assert(notfound($rugrats, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Found relation when I shouldn't\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("kid->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
ar_echo("Note how only rugrat forgot its relations - kid is fine.\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$kid = new Kid('children');
$kids = $kid->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
ar_echo((ar_assert(found($kids, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($kids, "'favorite_color' => 'lavender'"))) ? "[OK] I did not forget relation: person\n" : "[!!] I should not have forgotten relation: person\n");
ar_echo((ar_assert(notfound($kids, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
ar_echo((ar_assert(notfound($kids, "'name_first' => 'JAMIE'"))) ? "[OK] No JAMIE relation\n" : "[!!] Found relation when I shouldn't\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("rugrat->Find('children.id=1' ... ADODB_WORK_AR) [Worker Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$rugrat = new Rugrat('children');
$rugrats = $rugrat->Find('children.id=1', false, false, array('loading' => ADODB_WORK_AR));
$arugrat = $rugrats[0];
ar_echo((ar_assert(found($arugrat, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($arugrat, "'favorite_color' => 'lavender'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");

ar_echo("\n-- Loading relations:\n\n");
$arugrat->belongsTo('person');
$arugrat->LoadRelations('person', 'order by id', 0, 2);
ar_echo((ar_assert(found($arugrat, "'favorite_color' => 'lavender'"))) ? "[OK] Found relation: person\n" : "[!!] Missing relation: person\n");
ar_echo((ar_assert(found($arugrat, "'name_first' => 'Jill'"))) ? "[OK] Found Jill\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($arugrat, "'name_first' => 'Joan'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");
ar_echo((ar_assert(notfound($arugrat, "'name_first' => 'JAMIE'"))) ? "[OK] No Joan relation\n" : "[!!] Found relation when I shouldn't\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("person->Find('1=1') [Lazy Method]\n");
ar_echo("And now for our finale...\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$person = new Person();
$people = $person->Find('1=1', false, false, array('loading' => ADODB_LAZY_AR));
ar_echo((ar_assert(found($people, "'name_first' => 'John'"))) ? "[OK] Found John\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
ar_echo((ar_assert(notfound($people, "'name_first' => 'Fluffy'"))) ? "[OK] No Fluffy yet\n" : "[!!] Found Fluffy relation when I shouldn't\n");
ar_echo("\n-- Lazily Loading Everybody:\n\n");
foreach ($people as $aperson) {
    foreach ($aperson->children as $achild) {
        if ($achild->name_first)
            ;
    }
}
ar_echo((ar_assert(found($people, "'favorite_pet' => 'tortoise'"))) ? "[OK] Found relation: child\n" : "[!!] Missing relation: child\n");
ar_echo((ar_assert(found($people, "'name_first' => 'Joan'"))) ? "[OK] Found Joan\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'name_first' => 'JAMIE'"))) ? "[OK] Found JAMIE\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'name_first' => 'Lady'"))) ? "[OK] Found Cat Lady\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'name_first' => 'Fluffy'"))) ? "[OK] Found Fluffy\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($people, "'name_first' => 'Sun'"))) ? "[OK] Found Sun\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("artist->Load('artistuniqueid=1') [Join Method]\n");
ar_echo("Yes, we are dabbling in the musical field now..\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$artist = new Artist();
$artist->Load('artistuniqueid=1');
ar_echo((ar_assert(found($artist, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($artist, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");


ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("song->Load('recordid=1') [Join Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$song = new Song();
$song->Load('recordid=1');
ar_echo((ar_assert(found($song, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("artist->Find('artistuniqueid=1' ... ADODB_JOIN_AR) [Join Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$artist = new Artist();
$artists = $artist->Find('artistuniqueid=1', false, false, array('loading' => ADODB_JOIN_AR));
ar_echo((ar_assert(found($artists, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($artists, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("song->Find('recordid=1' ... ADODB_JOIN_AR) [Join Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$song = new Song();
$songs = $song->Find('recordid=1', false, false, array('loading' => ADODB_JOIN_AR));
ar_echo((ar_assert(found($songs, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("artist->Find('artistuniqueid=1' ... ADODB_WORK_AR) [Work Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$artist = new Artist();
$artists = $artist->Find('artistuniqueid=1', false, false, array('loading' => ADODB_WORK_AR));
ar_echo((ar_assert(found($artists, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
ar_echo((ar_assert(found($artists, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("song->Find('recordid=1' ... ADODB_JOIN_AR) [Join Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$song = new Song();
$songs = $song->Find('recordid=1', false, false, array('loading' => ADODB_WORK_AR));
ar_echo((ar_assert(found($songs, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("artist->Find('artistuniqueid=1' ... ADODB_LAZY_AR) [Lazy Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$artist = new Artist();
$artists = $artist->Find('artistuniqueid=1', false, false, array('loading' => ADODB_LAZY_AR));
ar_echo((ar_assert(found($artists, "'name' => 'Elvis Costello'"))) ? "[OK] Found Elvis Costello\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($artists, "'name' => 'No Hiding Place'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
foreach ($artists as $anartist) {
    foreach ($anartist->songs as $asong) {
        if ($asong->name)
            ;
    }
}
ar_echo((ar_assert(found($artists, "'name' => 'No Hiding Place'"))) ? "[OK] Found relation: song\n" : "[!!] Missing relation: song\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("song->Find('recordid=1' ... ADODB_LAZY_AR) [Lazy Method]\n");
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
$song = new Song();
$songs = $song->Find('recordid=1', false, false, array('loading' => ADODB_LAZY_AR));
ar_echo((ar_assert(found($songs, "'name' => 'No Hiding Place'"))) ? "[OK] Found song\n" : "[!!] Find failed\n");
ar_echo((ar_assert(notfound($songs, "'name' => 'Elvis Costello'"))) ? "[OK] No relation yet\n" : "[!!] Found relation when I shouldn't\n");
foreach ($songs as $asong) {
    if ($asong->artist)
        ;
}
ar_echo((ar_assert(found($songs, "'name' => 'Elvis Costello'"))) ? "[OK] Found relation: artist\n" : "[!!] Missing relation: artist\n");

ar_echo("\n\n-------------------------------------------------------------------------------------------------------------------\n");
ar_echo("Test suite complete. " . (($err_count > 0) ? "$err_count errors found.\n" : "Success.\n"));
ar_echo("-------------------------------------------------------------------------------------------------------------------\n");
?>
